<%

if RZ_IN<>1 then
	response.write("非法请求")
	response.end
end If

Sub SpecialList(S_KEY)

Dim defaulttemplate
defaulttemplate=app("rz_template_speciallist")
If defaulttemplate="" Then
defaulttemplate="speciallist.html"
End If 
SysInclude(defaulttemplate)

S_CRUMB.Str=text("专题列表","Specials")

If S_KEY=0 Then 
	Flush()
Else
	FlushToHTML()
End If 

End Sub%>